5 POKE53248+21,.
10 IFA=.THENA=1:LOAD"JJ.SPR",8,1
20 HS=.
50 V=53248:POKEV+21,.:SC=0:LV=1:LP=0:SH=3:SD=54272:RM=10
70 GOSUB800:GOSUB1000:POKE53280,.:POKE53281,.
75 POKEV+39,1:POKEV+40,13:POKEV+41,10:POKEV+42,14
80 PRINT"[147]":POKEV+21,0:PRINTTAB(2)"[159] SCORE "TAB(24)"[158] LEVEL "
90 PRINTTAB(3)SCTAB(27)LV:PRINTTAB(2)"[150] HIGH  "TAB(24)"[154] SHIPS "
100 PRINTTAB(3)""HSTAB(27)SH
110 POKEV+16,0:POKEV+0,144:POKEV+1,50:POKEV+2,255:POKEV+3,138:POKEV+4,144
120 POKEV+5,229:POKEV+6,24:POKEV+7,138:POKEV+21,31
130 GOSUB700
140 YN=50:XE=255:YS=229:XW=24
142 PRINT""TAB(27)LV
145 IFLV>15THENE=14:N=22:W=18:S=INT(RND(5)*12)+12:GOTO195
150 IFLV>3THENE=INT(RND(5)*9)+9:S=8:W=12:N=INT(RND(6)*14)+12:GOTO195
155 IFLV>1THENN=INT(RND(5)*6)+4:S=6:E=INT(RND(6)*8)+4:W=6:GOTO195
160 N=2:S=3:W=2:E=3
195 W1=PEEK(V+30)
200 POKEV+1,YN:POKEV+2,XE:POKEV+5,YS:POKEV+6,XW
202 LP=LP+1:IFLP=40THENLV=LV+1:LP=0:GOTO110
205 JY=PEEK(56320)AND15
210 IFJY=7THENPOKE2044,210
211 IFJY=11THENPOKE2044,211
212 IFJY=13THENPOKE2044,209
213 IFJY=14THENPOKE2044,208
214 GOTO400
215 YN=YN+N:XE=XE-E:YS=YS-S:XW=XW+W
218 W1=PEEK(V+30):IFW1>16THEN600
220 GOTO200
400 Z=212-(PEEK(2044)):ONZGOTO410,440,470,500
410 PRINT"[150]":TB=15
412 FORT=1TO10:PRINTTAB(TB)"[163][145]":TB=TB-1:NEXT
415 W2=PEEK(V+31):IFW2=8THENC=42:GOSUB550
420 PRINT"                ":POKEV+6,24:XW=24:POKEV+42,14
425 W2=PEEK(V+31):W1=PEEK(V+30):GOTO215
440 PRINT"[150]":TB=20
442 FORT=1TO10:PRINTTAB(TB)"[163][145]":TB=TB+1:NEXT
445 W2=PEEK(V+31):IFW2=2THENC=40:GOSUB550
450 PRINT"[150]"TAB(20)"          "
455 POKEV+2,255:XE=255:POKEV+40,13
460 W2=PEEK(V+31):W1=PEEK(V+30):GOTO215
470 PRINT"[150]":FORT=1TO8:PRINTTAB(18)"[180]":NEXT
475 W2=PEEK(V+31):IFW2=4THENC=41:GOSUB550
480 PRINT"":FORT=1TO8:PRINTTAB(18)" ":NEXT
485 POKEV+5,229:YS=229:POKEV+41,10
490 W2=PEEK(V+31):W1=PEEK(V+30):GOTO215
500 PRINT"[150]":FORT=1TO8:PRINTTAB(18)"[180][145][145]":NEXT
505 W2=PEEK(V+31):IFW2=1THENC=39:GOSUB550
510 PRINT"[150]":FORT=1TO8:PRINTTAB(18)" [145][145]":NEXT
515 POKEV+1,50:YN=50:POKEV+39,1
520 W2=PEEK(V+31):W1=PEEK(V+30):GOTO215
550 POKEV+C,2:FORT=0TO20:NEXT:POKEV+C,1:POKESD+11,129:FORT=0TO20:NEXT
552 POKESD+11,128
555 POKEV+C,15:POKEV+C,12:POKEV+C,11:POKEV+C,0
560 SC=SC+5+LV:PRINT""TAB(3)SC
565 RETURN
600 FORI=0TO24:POKESD+I,0:NEXT
602 IFW1=17THENX=2040:GOTO620
604 IFW1=18THENX=2041:GOTO620
606 IFW1=20THENX=2042:GOTO620
608 X=2043:GOTO620
620 POKEV+43,2:POKESD+24,143:POKESD+5,16:POKESD+19,16:POKESD+6,252
622 POKESD+20,249:POKESD+4,21:POKESD+18,17:POKESD+1,68:POKESD+15,42
624 FORI=0TO200:NEXT:POKESD+4,20:POKESD+18,16:FORI=0TO400:NEXT:POKEV+43,0
626 L=200
628 FORT=0TO80:POKEX,L:L=L+1:IFL=208THENL=200
630 NEXT
632 SH=SH-1:PRINT""TAB(27)SH:IFSH=0THEN650
634 POKEX,200:POKEV+43,15:GOTO110
650 FORI=0TO24:POKESD+I,0:NEXT
652 POKESD+24,15:POKESD+5,80:POKESD+6,243:POKESD+3,7
654 FORJ=70TO20STEP-1:POKESD+4,65:POKESD+1,J:FORI=0TO030:NEXT:POKESD+4,64
656 FORI=0TO20:NEXT:NEXT
658 POKEV+0,144:POKEV+1,50:POKEV+2,255:POKEV+3,138:POKEV+4,144
660 POKEV+5,229:POKEV+6,24:POKEV+7,138
662 FORT=0TO30:PRINT"[159]"TAB(12)"           "
664 PRINT""TAB(12)" GAME OVER ":NEXTT
665 IFSC>HSTHENHS=SC
668 PRINT""HS
670 FORA=1TO2000:NEXT:GOTO50
682 SC=0:LV=1:LP=0:SH=3:POKEV+43,15:GOTO80
699 REM    CHOREOGRAPHY
700 RESTORE
702 FORI=0TO24:POKESD+I,0:NEXT
704 POKESD+1,15:POKESD+5,16:POKESD+6,240
705 READA:IFA=0THEN715
710 FORX=2040TO2043:POKEX,A:NEXT:POKESD+15,RM:POKESD+24,31:POKESD+4,21
712 RM=RM+1:IFRM=20THENRM=10
713 GOTO705
715 FORI=0TO24:POKESD+I,0:NEXT
716 POKESD+24,15:POKESD+12,160:POKESD+13,252:POKESD+8,80:POKESD+7,40
718 POKESD+11,128:RETURN
720 DATA 200,201,202,203,202,204,200,204,202,203,202,201,200
730 DATA 205,206,207,200,207,206,205,200
740 DATA 200,201,202,203,202,204,200,204,202,203,202,201,200,0
800 POKE53281,14:POKE53280,14
810 PRINT"[147][153][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
812 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
814 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
816 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
818 PRINT"          LOADSTAR PRESENTS:"
820 PRINTTAB(19)"THE":PRINTTAB(9)"   "TAB(20)" "
825 PRINTTAB(8)"   "TAB(19)" [146]    "
830 PRINTTAB(9)"  [146]  [146]  [146]    [146]  [146]    [146]    [146]    "
835 PRINTTAB(8)"                [146]   [146][184]     "
840 PRINTTAB(7)"              [146]   [146]        "
845 PRINTTAB(7)"   [146]    [146]    [146]  [146]   [146]     [146]  [146]"
850 PRINTTAB(15)" "
860 PRINTTAB(14)"   ":PRINTTAB(13)"   "
865 PRINTTAB(14)"  [146]  [146]  [146] [223][146] [169][146]    "
870 PRINTTAB(13)"       [223]       "
875 PRINTTAB(12)"                "
880 PRINTTAB(12)"   [146]    [146]  [146]  [146]    ":PRINTTAB(24)" "
882 PRINT"          BY: JAMES C. HILTY"
884 PRINT"            COPYRIGHT 1987"
900 FORX=2040TO2043:POKEX,200:NEXT:POKEV+39,1:POKEV+40,1:POKEV+41,6
910 POKEV+42,6:POKEV+0,45:POKEV+1,150:POKEV+16,6:POKEV+2,25:POKEV+3,150
920 POKEV+4,20:POKEV+5,155:POKEV+6,40:POKEV+7,155:POKEV+29,15:POKEV+43,15
930 POKEV+8,156:POKEV+9,138:POKE2044,208:POKEV+21,15
931 IF(MM)THENPRINT:PRINT:GOTO940
933 PRINT"        PRESS SPACE TO CONTINUE.":MM=1
935 IFPEEK(203)<>60THEN935
937 PRINT"[145][145][145]                                     "
938 PRINT"                                     "
940 GOSUB700
950 RETURN
1000 PRINT"[145][145][145]        P - PLAY JUPITER JUMP"
1010 PRINT"        Q - QUIT"
1020 PRINT"        PRESS P OR Q."
1030 A=PEEK(203):IFA<>41ANDA<>62THEN1030
1040 IFA=41THENRETURN
1050 GOSUB60000:GOTO1020
60000 PRINT"[145] ARE YOU SURE YOU WANT TO QUIT? (Y/N)"
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                     [145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 IFER<>63THENEND
60050 POKEV+21,.:LOAD"HELLO CONNECT",8